home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / bother__ / popfrm30.zip / PROGRAM.FRM < prev    next >
Text File  |  1989-03-12  |  2KB  |  43 lines
  1. ~{The TESTDATA file should be on the screen when printing this form.}~
  2. ~{Lines beginning and ending with tildes and curley brackets are comments.}~
  3. ~{Make sure that you don't edit this file with any word processor incapable}~
  4. ~{of both line overwriting and ASCII output.  FORMED is ASCII-capable.}~
  5. ~{Also, be sure that the TESTDATA file is displayed when you print this file}~
  6. ~{with PopForm.}~
  7. ~{}~
  8. ~{}~
  9. ~GOSUB WELCOME~
  10.     If the "amount" shown in the TESTDATA file is greater than 40, I'll skip to
  11. the point in this form identified as LABEL 40. ~IF 40<("amount: ")~~goto 40~~\~
  12.                                                 If it's not, I'll just keep
  13. talking.  Notice that this file uses line-overwriting to maintain spacing.  
  14. Whenever PopForm encounters the ~\~ code at the end of a line, it knows that it
  15. should print the NEXT line OVER the line just printed.  Line overwriting allows
  16. the sentance beginning with, "If it's not..", to be printed directly after the
  17. sentance that ends with "...as LABEL 40".  Those two sentances may appear on
  18. different screen lines, but line overwriting tells your printer to print the
  19. second line OVER the first, not on the next line down.
  20. ~GOTO ENTER-SOMETHING~
  21. ~LABEL 40~
  22.                                                 Now, let's see if TESTDATA's
  23. "amount" is less than 20.  ~IF 20>("amount: ")~~goto end~~\~
  24.                            Nope.  If it were, I would have skipped to the end
  25. of the file (LABEL END).
  26. ~LABEL ENTER-SOMETHING~
  27.  
  28. ~{Notice that the next line contains the ~+~ code, telling PopForm to join}~ 
  29. ~{two lines, printing one right after the other on the SAME printed line.}~
  30.     Now, I'll ask you to type in something:~+~
  31.   ~[9]INPUT "Give me 9 letters to print"~~\~
  32.                                                           Thanks.  Now, let's
  33. exit this form and print LABEL.FRM.  Here we go...
  34.  
  35. ~FILE LABEL.FRM~
  36. ~LABEL WELCOME~
  37.     I'm now printing the WELCOME subroutine found at the bottom of the form.
  38. Notice that the RETURN statement at the end of the subroutine will cause Pop-
  39. Form to resume printing at the point from which it branched to the subroutine.
  40.  
  41. ~RETURN~
  42. ~LABEL END~
  43.